home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / apocalyp / apocalyp.bas next >
BASIC Source File  |  1993-11-30  |  1KB  |  49 lines
  1. 10 ' ------------
  2. 20 '   初期設定
  3. 30 ' ------------
  4. 40     CLS
  5. 50 '
  6. 51     PRINT "*** 『黙示録の獣』発見ソフト ***":PRINT
  7. 52 '
  8. 60 ' -----------
  9. 70 '   ﾒｲﾝﾙｰﾌﾟ
  10. 80 ' -----------
  11. 90 WHILE 1
  12. 100         PRINT "英字で入力して下さい（入力の無いとき終了します）"
  13. 110         INPUT  S$
  14. 120         PRINT
  15. 130 '
  16. 140         IF S$ = ""  THEN SYSTEM
  17. 150 '
  18. 160    ' ----- 入力文字を判定します -----
  19. 170         N = 0                        ' 足し込み領域をｸﾘｱします
  20. 180 '
  21. 190         FOR I = 1 TO LEN(S$)
  22. 200             A = ASC(MID$(S$, I, 1))  ' 1文字取りだし, ｱｽｷｰｺｰﾄﾞに変換します
  23. 210 '
  24. 220         ' ----- ｱﾙﾌｧﾍﾞｯﾄを1～26に変換します -----
  25. 230             C = 0                                        ' ｱﾙﾌｧﾍﾞｯﾄ以外は 0
  26. 240             IF A >= &H41 AND A <= &H5A THEN C = A - &H40   ' A...Z = 1...26
  27. 250             IF A >= &H61 AND A <= &H7A THEN C = A - &H60   ' a...z = 1...26
  28. 260 '
  29. 270         ' ----- 画面表示, 計算 -----
  30. 280             IF I <> 1 THEN PRINT " +";
  31. 290             PRINT C * 6;                 ' 今回値表示
  32. 300 '
  33. 310             N = N + C * 6                ' 合計に足し込みます
  34. 320         NEXT I
  35. 330 '
  36. 340     ' ----- 結果表示 ----
  37. 350         PRINT "   合計:"; N
  38. 360 '
  39. 370         PRINT
  40. 380         IF N = 666 THEN
  41. 390             PRINT "おぉっ！ 獣を見つけましたぞ！！！"
  42. 400         ELSE
  43. 410             PRINT "う～む･･･ 獣ではなさそうですね･･･"
  44. 420         ENDIF
  45. 430         PRINT
  46. 440         PRINT
  47. 450     WEND
  48. 460 '
  49.